home *** CD-ROM | disk | FTP | other *** search
- 4 REM ***ALPHADOT*** BY BOB BAXTER
- 5 BO=14:BK=6:DT=1:T=1:POKE53281,BK:POKE53280,BO:PRINT"
- 10 [141]5000:[134]N(1292):[129]CT[178]0[164]1292:[135]N(CT):[130]
- 15 [134]S(324),S$(12):[129]CT[178]0[164]324:[135]S(CT):[130]:[129]CT[178]0[164]12:[135]S$(CT):[130]
- 17 SO[178]54272:[151]SO[170]24,15:[141]650:[141]6000
- 20 [153]"LOAD"[199](14);[166]15);" ATN(null)(null)LEFT$ATNSTR$(null)(null) WAIT":[153][166]15)"(null)ATNRIGHT$(null)CLOSE(null)VAL(null)(null)
- 25 PRINT"[208]LEASE SELECT:
- 30 [153]"1. LETTERS AND NUMBERS":[153]"2. SPELL WITH DOTS
- 32 PRINT"3. SHAPES":PRINT"4. DOT DRAWING":PRINT"5. DOT MATH
- 34 [153]"6. COLOR SELECTION":[153]"7. END
- 40 PRINT"[208]RESS <_> TO RETURN TO THE MENU.":Z=RND(-TI)
- 50 GETA$:IFA$=""THEN50
- 60 IFA$="1"ORA$="!"THENGOSUB5200:PRINT"[147]"CHR$(142):GOTO100
- 70 IFA$="2"ORA$=CHR$(34)THENGOSUB5400:PRINT"[147]"CHR$(142):GOTO300
- 72 IFA$="3"ORA$="#"THENGOSUB5600:PRINT"[147]"CHR$(142):GOTO700
- 74 IFA$="4"ORA$="$"THENGOSUB5700:PRINT"[147]"CHR$(142):GOTO800
- 76 IFA$="5"ORA$="%"THENGOSUB5800:PRINT"[147]":GOTO4000
- 78 IFA$="6"ORA$="&"THENPRINT"[147]":GOTO900
- 80 IFA$="7"ORA$="'"THENPRINT"[147]":POKE54296,0:PRINTCHR$(142):END
- 81 FORX=LE%TOL
- 90 GOTO50
- 100 GETC$:IFC$=""THEN100
- 110 IFC$=CHR$(95)THEN20
- 120 IFC$=CHR$(32)ORC$=CHR$(160)THEN170
- 130 C=ASC(C$):IFC<33ORC>218THEN100
- 135 IFC>32ANDC<42THEN165
- 140 IFC>47ANDC<58THEN180
- 150 IFC>64ANDC<91THEN190
- 155 IFC>192THEN185
- 160 GOTO100
- 165 LE%=20*(C-32):GOTO200
- 170 LE%=INT(62*RND(1))*20:GOTO200
- 180 LE%=20*(C-48):GOTO200
- 185 LE%=20*(C-193)+720:GOTO200
- 190 LE%=20*(C-65)+200
- 200 L=LE%+19
- 210 PRINT"[147]":FORX=LE%TOL:IFN(X)=0THENX=L:NEXT:GOSUB650:GOTO230
- 220 POKE55672+N(X),DT:POKE1400+N(X),81:GOSUB600:NEXT:GOSUB650
- 230 GETC$:IFC$=""THEN230
- 240 GOTO110
- 300 S=40
- 310 GETC$:IFC$=""THEN310
- 320 IFC$=CHR$(13)ORC$=CHR$(141)THEN500
- 330 IFC$=CHR$(95)THEN20
- 340 IFC$=CHR$(19)ORC$=CHR$(147)THENPRINT"[147]":GOTO300
- 345 IFC$=CHR$(32)ORC$=CHR$(160)THENS=S+7:IFS=82ORS=402THENS=S+278
- 347 IFS>=722THENPRINT"[147]":GOTO300
- 350 C=ASC(C$):IFC<33ORC>218THEN310
- 360 IFC>32ANDC<42THEN385
- 370 IFC>47ANDC<58THEN390
- 375 IFC>64ANDC<91THEN395
- 377 IFC>192THEN393
- 380 GOTO310
- 385 LE%=20*(C-32):GOTO410
- 390 LE%=20*(C-48):GOTO410
- 393 LE%=20*(C-193)+720:GOTO410
- 395 LE%=20*(C-65)+200
- 410 L=LE%+19
- 420 FORX=LE%TOL:IFN(X)=0THENX=L:NEXT:GOSUB650:GOTO440
- 430 POKE55295+S+N(X),DT:POKE1023+S+N(X),81:GOSUB600:NEXT:GOSUB650
- 440 GETC$:IFC$=""THEN440
- 450 IFC$=CHR$(13)ORC$=CHR$(141)THEN500
- 460 IFC$=CHR$(32)ORC$=CHR$(160)THENS=S+7:GOTO475
- 470 S=S+7
- 475 IFS=82ORS=402THENS=S+278
- 480 IFS>=722THENPRINT"[147]":S=40
- 490 GOTO330
- 500 IFS<80THENS=360:GOTO310
- 510 IFS<400THENS=680:GOTO310
- 520 PRINT"[147]":GOTO300
- 600 POKESO,75:POKESO+1,34:POKESO+5,17:POKESO+6,129:POKESO+4,129:POKESO+4,128:RETURN
- 650 POKESO,30:POKESO+1,134:POKESO+5,48:POKESO+6,129:POKESO+4,17
- 660 FORY=1TO150:NEXTY:POKESO+4,16:FORY=1TO20:NEXTY:RETURN
- 700 GETC$:IFC$=""THEN700
- 710 IFC$=CHR$(95)THEN20
- 720 IFC$=CHR$(32)ORC$=CHR$(160)THEN750
- 721 IFC$="S"ORC$="[211]"THENLE%=0:GOTO755
- 722 IFC$="T"ORC$="[212]"THENLE%=25:GOTO755
- 723 IFC$="R"ORC$="[210]"THENLE%=50:GOTO755
- 724 IFC$="D"ORC$="[196]"THENLE%=75:GOTO755
- 725 IFC$="H"ORC$="[200]"THENLE%=100:GOTO755
- 726 IFC$="L"ORC$="[204]"THENLE%=125:GOTO755
- 727 IFC$="A"ORC$="[193]"THENLE%=150:GOTO755
- 728 IFC$="C"ORC$="[195]"THENLE%=175:GOTO755
- 729 IFC$="P"ORC$="[208]"THENLE%=200:GOTO755
- 730 IFC$="O"ORC$="[207]"THENLE%=225:GOTO755
- 731 IFC$="I"ORC$="[201]"THENLE%=250:GOTO755
- 732 IFC$="X"ORC$="[216]"THENLE%=275:GOTO755
- 733 IFC$="G"ORC$="[199]"THENLE%=300:GOTO755
- 737 IFC$="^"ORC$=CHR$(222)THENGOSUB792
- 738 GOTO700
- 750 LE%=INT(13*RND(1))*25
- 755 LE=LE%/25:L=LE%+24
- 760 PRINT"[147]":FORX=LE%TOL:IFS(X)=0THENX=L:NEXT:GOSUB650:GOTO780
- 770 POKE55671+S(X),DT:POKE1399+S(X),81:GOSUB600:NEXT:GOSUB650:GOTO780
- 780 FORX=20TO22:POKE214,X:PRINT:PRINTSPC(11)" [146]";:NEXT
- 785 FORX=1TO3000:NEXT:POKE214,21:PRINT:PRINTSPC(14)""S$(LE)"[146]":GOSUB650
- 790 GETC$:IFC$=""THEN790
- 791 GOTO710
- 792 PRINT" ****** SHAPES MENU ******
- 793 [153]" SWAITQUARE","TWAITRIANGLE","RWAITECTANGLE","DWAITIAMOND"," HWAITEART",
- 794 [153]"LWAITINE","AWAITRROW","CWAITROSS"," PWAITENTAGON","OWAITVAL","CIWAITRCLE",
- 795 [153]"HEXWAITAGON"," OCTAGWAITON":[142]
- 800 [153]"LOAD":S[178]500:SC[178]1024:CO[178]55296:S1[178]500
- 810 P[178]255[171][194](56320):J0[178][171]((P[175]8)[178]8):J1[178][171]((P[175]2)[178]2):J2[178][171]((P[175]4)[178]4)
- 813 J3[178][171]((P[175]1)[178]1):FB[178][171]((P[175]16)[178]16):DO[178]81:[139]FB[167]DO[178]32
- 815 [151]CO[170]S,DT:[151]SC[170]S,81:[129]X[178]1[164]9:[130]:[151]SC[170]S,DO
- 820 [139]J0[167]S[178]S[170]1:[139][181](S[173]40)[178]S[173]40[167]S[178]S[171]40
- 825 [139]J2[167]S[178]S[171]1:[139][181]((S[170]1)[173]40)[178](S[170]1)[173]40[167]S[178]S[170]40
- 830 [139]J1[167]S[178]S[170]40:[139]S[177]999[167]S[178]S[171]1000
- 835 [139]J3[167]S[178]S[171]40:[139]S[179]0[167]S[178]S[170]1000
- 840 [161]A$:[139]A$[178]"_"[167]20
- 845 [139]A$[178]""[176]A$[178]"LOAD"[167][153]"LOAD
- 850 IFS<>S1ANDDO<>32THENGOSUB600
- 855 S1=S:POKESC+S,32:GOTO810
- 900 PRINTCHR$(142):REM COLOR
- 905 S=83:FORX=760TO772:GOSUB985:NEXT
- 910 S=S+7:FORX=1000TO1015:GOSUB985:NEXT
- 915 S=S+7:FORX=940TO950:GOSUB985:NEXT
- 920 S=S+7:FORX=1000TO1015:GOSUB985:NEXT
- 925 S=S+7:FORX=1060TO1077:GOSUB985:NEXT:GOSUB650
- 930 PRINT""TAB(240)TAB(201)"PRESS:[157][157][157][157][157]<F1/F2> TO CHANGE THE BORDER COLOR
- 935 [153]"<F3/F4> TO CHANGE THE BACKGROUND COLOR
- 940 PRINT"[145]<F5/F6> TO CHANGE THE DOT COLOR
- 945 [153]"<F7/F8> TO CHANGE THE TEXT COLOR
- 947 PRINT" <_> TO RETURN TO THE MENU
- 950 [161]C$:[139]C$[178]""[167]950
- 952 [139]C$[178]"_"[167]20
- 954 [139]C$[178]"INPUT"[176]C$[178]"GOTO"[167]BO[178]BO[170]1:[139]BO[177]15[167]BO[178]0
- 956 [151]53280,BO:[139]C$[178]"DIM"[176]C$[178]"RUN"[167]BK[178]BK[170]1:[139]BK[177]15[167]BK[178]0
- 958 [151]53281,BK:[139]C$[178]"READ"[176]C$[178]"IF"[167]DT[178]DT[170]1:[137]962
- 960 [137]965
- 962 [139]DT[177]15[167]DT[178]0
- 964 [137]900
- 965 [139]C$[178]"LET"[176]C$[178]"RESTORE"[167]T[178]T[170]1:[137]967
- 966 [137]950
- 967 [139]T[177]15[167]T[178]0
- 968 [139]T[178]0[167][153]"STOP":[137]930
- 969 [139]T[178]1[167][153]"":[137]930
- 970 [139]T[178]2[167][153]"":[137]930
- 971 [139]T[178]3[167][153]"OPEN":[137]930
- 972 [139]T[178]4[167][153]"CLR":[137]930
- 973 [139]T[178]5[167][153]"":[137]930
- 974 [139]T[178]6[167][153]"":[137]930
- 975 [139]T[178]7[167][153]"SYS":[137]930
- 976 [139]T[178]8[167][153]"FOR":[137]930
- 977 [139]T[178]9[167][153]"VERIFY":[137]930
- 978 [139]T[178]10[167][153]"DEF":[137]930
- 979 [139]T[178]11[167][153]"POKE":[137]930
- 980 [139]T[178]12[167][153]"PRINT#":[137]930
- 981 [139]T[178]13[167][153]"PRINT":[137]930
- 982 [139]T[178]14[167][153]"CONT":[137]930
- 983 [139]T[178]15[167][153]"LIST":[137]930
- 985 [151]55295[170]S[170]N(X),DT:[151]1023[170]N(X)[170]S,81:[141]600:[142]
- 998 [143]
- 999 [143]********** NUMBERS **************
- 1000 [131]3,2,41,81,121,161,201,242,243,244,205,165,125,85,45,4,84,123,162,0
- 1010 [131]42,3,43,83,123,163,203,243,242,244,0,0,0,0,0,0,0,0,0,0
- 1020 [131]41,2,3,4,45,85,124,163,202,241,242,243,244,245,0,0,0,0,0,0
- 1030 [131]41,2,3,4,45,85,124,123,165,205,244,243,242,201,0,0,0,0,0,0
- 1040 [131]4,43,82,121,122,123,124,125,44,84,164,204,244,0,0,0,0,0,0,0
- 1050 [131]5,4,3,2,1,41,81,82,83,84,125,165,205,244,243,242,201,0,0,0
- 1060 [131]45,4,3,2,41,81,121,161,201,242,243,244,205,165,124,123,122,0,0,0
- 1070 [131]1,2,3,4,5,45,84,123,163,203,243,0,0,0,0,0,0,0,0,0
- 1080 [131]3,2,41,81,122,123,124,85,45,4,161,201,242,243,244,205,165,0,0,0
- 1090 [131]124,123,122,81,41,2,3,4,45,85,125,165,205,244,243,242,201,0,0,0
- 1148 [143]
- 1149 [143]*****LOWER CASE LETTERS*********
- 1150 [131]124,123,122,161,201,242,243,244,245,205,165,125,85,44,43,42,0,0,0,0
- 1160 [131]41,81,121,161,201,241,122,123,124,165,205,244,243,242,0,0,0,0,0,0
- 1170 [131]85,84,83,82,121,161,201,242,243,244,245,0,0,0,0,0,0,0,0,0
- 1180 [131]45,85,125,165,205,245,124,123,122,161,201,242,243,244,0,0,0,0,0,0
- 1190 [131]162,163,164,165,125,84,83,82,121,161,201,242,243,244,245,0,0,0,0,0
- 1200 [131]85,44,43,82,122,162,202,242,121,123,124,0,0,0,0,0,0,0,0,0
- 1210 [131]84,83,82,121,161,202,203,204,165,125,85,205,245,284,283,282,281,0,0,0
- 1220 [131]41,81,121,161,201,241,162,123,124,165,205,245,0,0,0,0,0,0,0,0
- 1230 [131]123,163,203,243,43,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
- 1240 [131]125,165,205,245,284,283,242,45,0,0,0,0,0,0,0,0,0,0,0,0
- 1250 [131]41,81,121,161,201,241,84,123,162,163,204,245,0,0,0,0,0,0,0,0
- 1260 [131]43,83,123,163,203,243,0,0,0,0,0,0,0,0,0,0,0,0,0,0
- 1270 [131]81,121,161,201,241,82,123,163,203,243,84,125,165,205,245,0,0,0,0,0
- 1280 [131]81,121,161,201,241,122,83,84,125,165,205,245,0,0,0,0,0,0,0,0
- 1290 [131]83,82,121,161,201,242,243,244,205,165,125,84,0,0,0,0,0,0,0,0
- 1300 [131]81,121,161,201,241,281,82,83,84,125,165,204,203,202,0,0,0,0,0,0
- 1310 [131]85,125,165,205,245,285,84,83,82,121,161,202,203,204,0,0,0,0,0,0
- 1320 [131]81,121,161,201,241,122,83,84,125,0,0,0,0,0,0,0,0,0,0,0
- 1330 [131]85,84,83,82,121,162,163,164,205,244,243,242,241,0,0,0,0,0,0,0
- 1340 [131]42,82,122,162,202,243,244,205,81,83,84,0,0,0,0,0,0,0,0,0
- 1350 [131]81,121,161,201,242,243,204,85,125,165,205,245,0,0,0,0,0,0,0,0
- 1360 [131]81,121,161,202,243,204,165,125,85,0,0,0,0,0,0,0,0,0,0,0
- 1370 [131]81,121,161,201,241,202,163,204,245,205,165,125,85,0,0,0,0,0,0,0
- 1380 [131]81,122,163,204,245,85,124,202,241,0,0,0,0,0,0,0,0,0,0,0
- 1390 [131]81,121,161,202,203,204,165,125,85,205,245,284,283,282,281,0,0,0,0,0
- 1400 [131]81,82,83,84,85,124,163,202,241,242,243,244,245,0,0,0,0,0,0,0
- 1498 [143]
- 1499 [143]********UPPER CASE LETTERS*******
- 1500 [131]241,201,161,121,81,42,3,44,85,125,165,205,245,122,123,124,0,0,0,0
- 1510 [131]1,41,81,121,161,201,241,2,3,4,45,85,124,123,122,165,205,244,243,242
- 1520 [131]45,4,3,2,41,81,121,161,201,242,243,244,205,0,0,0,0,0,0,0
- 1530 [131]1,41,81,121,161,201,241,2,3,4,45,85,125,165,205,244,243,242,0,0
- 1540 [131]1,41,81,121,161,201,241,2,3,4,5,122,123,124,242,243,244,245,0,0
- 1550 [131]1,41,81,121,161,201,241,2,3,4,5,122,123,124,0,0,0,0,0,0
- 1560 [131]45,4,3,2,41,81,121,161,201,242,243,244,205,165,125,124,123,0,0,0
- 1570 [131]1,41,81,121,161,201,241,5,45,85,125,165,205,245,122,123,124,0,0,0
- 1580 [131]3,43,83,123,163,203,243,2,4,242,244,0,0,0,0,0,0,0,0,0
- 1590 [131]4,44,84,124,164,204,243,242,201,3,5,0,0,0,0,0,0,0,0,0
- 1600 [131]1,41,81,121,161,201,241,5,44,83,122,163,204,245,0,0,0,0,0,0
- 1610 [131]1,41,81,121,161,201,241,242,243,244,245,0,0,0,0,0,0,0,0,0
- 1620 [131]1,41,81,121,161,201,241,42,83,44,5,45,85,125,165,205,245,0,0,0
- 1630 [131]1,41,81,121,161,201,241,82,123,164,5,45,85,125,165,205,245,0,0,0
- 1640 [131]3,2,41,81,121,161,201,242,243,244,205,165,125,85,45,4,0,0,0,0
- 1650 [131]1,41,81,121,161,201,241,2,3,4,45,85,124,123,122,0,0,0,0,0
- 1660 [131]3,2,41,81,121,161,201,242,243,244,205,165,125,85,45,4,203,285,0,0
- 1670 [131]1,41,81,121,161,201,241,2,3,4,45,85,124,123,122,163,204,245,0,0
- 1680 [131]45,4,3,2,41,81,122,123,124,165,205,244,243,242,201,0,0,0,0,0
- 1690 [131]3,43,83,123,163,203,243,1,2,4,5,0,0,0,0,0,0,0,0,0
- 1700 [131]1,41,81,121,161,201,242,243,244,205,165,125,85,45,5,0,0,0,0,0
- 1710 [131]1,41,81,121,161,202,243,204,165,125,85,45,5,0,0,0,0,0,0,0
- 1720 [131]1,41,81,121,161,201,241,202,163,204,245,205,165,125,85,45,5,0,0,0
- 1730 [131]1,41,82,123,164,205,245,5,45,84,123,162,201,241,0,0,0,0,0,0
- 1740 [131]1,41,82,123,5,45,84,163,203,243,0,0,0,0,0,0,0,0,0,0
- 1750 [131]1,2,3,4,5,45,84,123,162,201,241,242,243,244,245,0,0,0,0,0
- 1760 [131]43,83,123,163,203,121,122,124,125,0
- 1770 [131]121,122,123,124,125,0,0,0,0,0
- 1780 [131]41,82,123,164,205,45,84,162,201,0
- 1790 [131]1,2,3,4,5,6,7,8
- 1800 [131]281,241,201,161,121,81,41,1,2,3,4,5,6,7,8
- 2000 [131]1,41,81,121,161,201,202,203,204,205,206,207,167,127,87,47,7,6,5,4,3,2
- 2005 [131]0,0,0
- 2010 [131]4,43,82,121,160,199,200,201,202,203,204,205,206,207,208,209,168,127
- 2015 [131]86,45,0,0,0,0,0
- 2020 [131]40,80,120,160,161,162,163,164,165,166,167,168,128,88,48,47,46,45,44,43
- 2025 [131]42,41,0,0,0
- 2030 [131]4,43,82,121,160,201,242,283,324,285,246,207,168,127,86,45,0,0,0,0,0,0
- 2035 [131]0,0,0
- 2040 [131]84,43,2,1,40,80,120,160,201,242,283,324,45,6,7,48,88,128,168,207,246
- 2045 [131]285,0,0,0
- 2050 [131]156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,0,0
- 2055 [131]0,0,0,0,0,0
- 2060 [131]364,324,284,244,204,164,124,84,44,160,121,82,43,4,45,86,127,168,0,0,0,0
- 2065 [131]0,0,0
- 2070 [131]4,3,43,83,82,81,121,161,162,163,203,243,244,245,205,165,166,167,127,87
- 2075 [131]86,85,45,5,4
- 2080 [131]4,43,82,121,160,199,240,281,322,323,324,325,326,287,248,209,168,127,86
- 2085 [131]45,0,0,0,0,0
- 2090 [131]3,2,1,40,80,120,161,162,163,164,165,166,127,87,47,6,5,4,0,0,0,0,0,0,0
- 2100 [131]4,3,42,82,122,163,164,165,126,86,46,5,0,0,0,0,0,0,0,0,0,0,0,0,0
- 2110 [131]4,3,2,41,80,119,158,199,240,281,322,323,324,325,326,287,248,209,170
- 2115 [131]129,88,47,6,5,0
- 2120 [131]4,3,2,41,80,119,159,199,239,280,321,362,363,364,365,326,287,248,208
- 2125 [131]168,128,87,46,5,4
- 2500 [131]" SQUARE"," TRIANGLE"," RECTANGLE"," DIAMOND"," HEART"," LINE"
- 2510 [131]" ARROW"," CROSS"," PENTAGON"," OVAL"," CIRCLE"," HEXAGON"
- 2520 [131]" OCTAGON"
- 4000 [153]"LOAD"[199](14)[166]6)[199](14)"ON****** STR$(null)(null)CLOSE(null)ATN(null)LEFT$CLOSE(null)VAL(null)(null) ******"
- 4050 [153]"<F1> ADDITION LEVEL 1":[153]"<F2> ADDITION LEVEL 2
- 4060 PRINT"<F3> SUBTRACTION LEVEL 1":PRINT"<F4> SUBTRACTION LEVEL 2
- 4070 [153]"<F5> MULTIPLICATION LEVEL 1":[153]"<F6> MULTIPLICATION LEVEL 2
- 4080 PRINT"<F7> DIVISION LEVEL 1":PRINT"<F8> DIVISION LEVEL 2
- 4084 [153]"<CRSR ^> MOVE ANSWER CURSOR LEFT
- 4088 PRINT"<CRSR _> MOVE ANSWER CURSOR RIGHT
- 4090 [153]"<SPACE BAR> ERASE A NUMBER
- 4095 PRINT"<RETURN> ENTER YOUR ANSWER
- 4096 [153]"<^> RETURN TO THE DOT MATH MENU
- 4100 PRINT"<_> RETURN TO THE MAIN MENU[145][145][145][145]"
- 4110 GETA$:GOSUB9300:IFA$=""THEN4110
- 4120 FORX=0TO2:A$(X)="":NEXT:IFA$=CHR$(95)THEN20
- 4130 IFA$=CHR$(94)ORA$=CHR$(222)THEN4000
- 4140 C=ASC(A$):IFC<133ORC>140THEN4110
- 4145 PRINT"[147]"
- 4150 PRINTCHR$(142):CT=0:C=C-132:ONCGOTO4200,4400,4600,4800,4210,4410,4610,4810
- 4200 L1=10:L2=10:O=1:OP=15:GOTO4220
- 4210 L1=100:L2=100:O=1:OP=15
- 4220 GOSUB7000:N3=N1+N2
- 4230 N3$=STR$(N3):GOTO7010
- 4400 L1=10:L2=10:O=2:OP=15:GOTO4420
- 4410 L1=100:L2=100:O=2:OP=15
- 4420 GOSUB7000:N3=N1-N2:IFN3<0THEN4420
- 4430 N3$=STR$(N3):GOTO7010
- 4600 L1=10:L2=10:O=3:OP=15:GOTO4620
- 4610 L1=50:L2=50:O=3:OP=15
- 4620 GOSUB7000:N3=N1*N2:IFN3>999THEN4620
- 4630 N3$=STR$(N3):GOTO7010
- 4800 L1=10:L2=82:O=4:OP=0:GOTO4820
- 4810 L1=20:L2=100:O=4:OP=0
- 4820 GOSUB7000:IFN1=0THEN4820
- 4825 IFN2/N1<>INT(N2/N1)OR(C=4ANDN2/N1>9)ORN2/N1=0THEN4820
- 4830 N3=N2/N1:N3$=STR$(N3):GOTO7010
- 5000 PRINT"[147]"CHR$(14)" ********** [193][160][204][160][208][160][200][160][193][160][196][160][207][160][212][160]*********** "
- 5010 PRINTSPC(18)"BY"
- 5020 PRINTSPC(14)"[194]OB [194]AXTER"
- 5030 PRINT" [193]LPHADOT IS A FUN AND UNIQUE PROGRAM
- 5040 [153]" BASED ON THE DOT AS A SPELLING, MATH,
- 5050 PRINT" DRAWING, AND SHAPE RECOGNITION TOOL.
- 5060 [153]" ATNN OPTION IS ALSO PROVIDED TO SELECT
- 5070 PRINT" ANY OF 65536 DOT, TEXT, BACKGROUND,
- 5080 [153]" AND BORDER COMBINATIONS USING THE
- 5090 PRINT" SPECIAL FUNCTION KEYS ON THE RIGHT.
- 5100 [153]" VALACH OPTION IN THE PROGRAM CONTAINS
- 5110 PRINT" COMPLETE INSTRUCTIONS.
- 5120 [151]214,22:[153]:[153][166]12)" (null)(null)VALATN(null)VALCLOSE(null)ATNRIGHT$(null) WAIT":[142]
- 5200 [153]"LOAD ******** (null)VAL(null)(null)VAL(null)(null)CLOSEATN(null)STR$CLOSE(null)(null)(null)PEEKVAL(null)(null)CLOSE*********
- 5210 PRINT" [204]ETTERS AND NUMBERS PROVIDE "CHR$(34)"FLASH-
- 5220 [153]" CARD"[199](34)" TYPE PRACTICE WITH UPPER AND
- 5230 PRINT" LOWER CASE LETTERS AS WELL AS NUMBERS.
- 5240 [153]" (null)HE CHARACTERS ARE "[199](34)"DRAWN"[199](34)" ON THE
- 5250 PRINT" SCREEN WITH DOTS IN THE SAME WAY THEY
- 5260 [153]" WOULD BE DRAWN ON PAPER USING A PENCIL.
- 5270 PRINT" [145][208]RESSING LETTER KEYS GIVE LOWER CASE
- 5280 [153]" LETTERS, PRESSING <(null)LEFT$RIGHT$ASC(null)> WITH THE
- 5290 PRINT" LETTERS FORM UPPER CASE LETTERS.
- 5300 [153]" (null)UMBERS ARE PROVIDED IN EITHER THE
- 5310 PRINT" UPPER OR LOWER CASE MODE.
- 5320 [153]" (null)RESSING THE <(null)(null)ATNLENVAL PEEKATN(null)> PROVIDES
- 5330 PRINT" RANDOM UPPER AND LOWER CASE LETTERS
- 5340 [153]" AND NUMBERS THAT CAN BE USED LIKE
- 5350 PRINT" FLASHCARDS.
- 5360 [141]6100:[141]6000:[142]
- 5400 [153]"LOAD ********** (null)(null)VAL(null)(null)CLOSE(null)RIGHT$(null)LEFT$CLOSESTR$(null)(null)(null)CLOSE***********
- 5410 PRINT" [211]PELL WITH DOTS PROVIDES SPELLING AND
- 5420 [153]" WRITING PRACTICE USING THE DOT FORMED
- 5430 PRINT" LETTERS AND NUMBERS IN A SIX COLUMN
- 5440 [153]" ACROSS BY THREE ROW DOWN MATRIX.
- 5450 PRINT" [215]RITING BEGINS IN THE UPPER LEFT HAND
- 5460 [153]" CORNER.
- 5470 PRINT" [208]RESSING THE <[211][208][193][195][197][160][194][193][210]> INSERTS A
- 5480 [153]" SPACE BETWEEN LETTERS. (null)RESSING
- 5490 PRINT" <[195][204][210] [200][207][205][197]> ERASES THE SCREEN AND
- 5500 [153]" STARTS YOU AGAIN IN THE UPPER LEFT
- 5510 PRINT" HAND CORNER. [212]YPING BEYOND THE LAST
- 5520 [153]" CHARACTER IN ROW THREE AUTOMATICALLY
- 5530 PRINT" ERASES THE SCREEN AND STARTS YOU OVER.
- 5540 [141]6100:[141]6000:[142]
- 5600 [153]"LOAD *************** (null)LEFT$ATN(null)VAL(null) ***************
- 5610 PRINT" [211]HAPES IS A SET OF PREPROGRAMED
- 5620 [153]" SHAPES DRAWN WITH DOTS.
- 5630 PRINT" [210]ANDOM SHAPES CAN BE CALLED BY
- 5640 [153]" PRESSING <(null)(null)ATNLENVALCLOSEPEEKATN(null)>,CLOSEOR INDIVIDUAL
- 5650 PRINT" SHAPES CAN BE CALLED BY PRESSING THE
- 5660 [153]" APPROPRIATE KEY.
- 5670 PRINT" [212]HE MENU FOR THE INDIVIDUAL SHAPES
- 5680 [153]" CAN BE CALLED BY PRESSING THE <^> KEY.
- 5690 GOSUB6100:GOSUB6000:RETURN
- 5700 PRINT"[147] ************ [196][207][212][160][196][210][193][215][201][206][199][160][160]************
- 5710 [153]" STR$OT DRAWING IS A DRAWING ROUTINE
- 5720 PRINT" WHICH USES A JOYSTICK TO DRAW PICTURES
- 5730 [153]" WITH DOTS. (null)HEN HELD DOWN THE <FIRE
- 5740 PRINT" BUTTON> ON THE JOYSTICK ERASES EXIST-
- 5750 [153]" ING DOTS IN IT'S PATH AND PREVENTS THE
- 5760 PRINT" DOTS FROM BEING DRAWN AS THE "CHR$(34)"CURSOR"CHR$(34)
- 5770 PRINT" MOVES ACROSS THE SCREEN.
- 5780 [153]" (null)LUG THE JOYSTICK INTO CONTROL PORT 2.
- 5790 GOSUB6100:GOSUB6000:RETURN
- 5800 PRINT"[147] ************** [196][207][212] [205][193][212][200][160]**************
- 5810 [153]" STR$OT MATH IS AN ARITHMETIC PROGRAM DE-
- 5820 PRINT" SIGNED TO PROVIDE PRACTICE IN ADDITION,
- 5830 [153]"ON SUBTRACTION, MULTIPLICATION, AND
- 5840 PRINT" DIVISION. [212]WO LEVELS OF DIFFICULTY
- 5850 [153]" ARE AVAILABLE FOR EACH OPERATION. (null)HE
- 5860 PRINT" FUNCTION KEYS ON THE RIGHT SELECT THE
- 5870 [153]" OPTIONS.
- 5890 PRINT" <F1> LEVEL 1, <F2> LEVEL 2 - [193]DD
- 5900 [153]" <F3> LEVEL 1, <F4> LEVEL 2 - (null)UBTRACT
- 5910 PRINT" <F5> LEVEL 1, <F6> LEVEL 2 - [205]ULTIPLY
- 5920 [153]" <F7> LEVEL 1, <F8> LEVEL 2 - STR$IVIDE
- 5930 GOSUB6100:GOSUB6000:RETURN
- 6000 POKE214,22:PRINT:PRINT" [208][210][197][211][211][160][211][208][193][195][197][160][194][193][210][160][212][207][160][195][207][206][212][201][206][213][197][160][160][146]
- 6010 [161]B$
- 6020 [139]B$[178][199](32)[176]B$[178][199](160)[167][142]
- 6030 [137]6010
- 6100 [153]" (null)RESS <_> TO RETURN TO THE MAIN MENU.":[142]
- 7000 N1[178][181](L1[172][187](1)):N2[178][181](L2[172][187](1)):N1$[178][196](N1):N2$[178][196](N2):[142]
- 7010 C1[178][195](N1$)[171]1:C2[178][195](N2$)[171]1:C3[178][195](N3$)[171]1
- 7020 [129]X[178]1[164]C1[170]1:N1(X)[178][198]([202](N1$,X,1)):[130]
- 7030 [129]X[178]1[164]C2[170]1:N2(X)[178][198]([202](N2$,X,1)):[130]
- 7040 [129]X[178]1[164]C3[170]1:N3(X)[178][198]([202](N3$,X,1)):[130]
- 7100 [153]"LOAD":[145]C1[137]7110,7118
- 7110 SG[178]19:S[178]28:[139]O[178]4[167]S[178]453:LE%[178]20[172](N1(2)[171]48):[141]8000:[137]8200
- 7115 LE%[178]20[172](N1(2)[171]48):[141]8000:[137]7122
- 7118 SG[178]19:S[178]21:[139]O[178]4[167]S[178]446:LE%[178]20[172](N1(2)[171]48):[141]8000:[137]7120
- 7119 LE%[178]20[172](N1(2)[171]48):[141]8000:S[178]28:LE%[178]20[172](N1(3)[171]48):[141]8000:[137]7122
- 7120 SG[178]19:S[178]453:LE%[178]20[172](N1(3)[171]48):[141]8000:[137]8200
- 7122 [139]C1[179]2[175]C2[179]2[167]S[178]341:[137]7125
- 7123 S[178]334
- 7125 SG[178]9:[145]O[137]7126,7127,7128
- 7126 LE%[178]1240:[141]8000:[137]7130
- 7127 LE%[178]1250:[141]8000:[137]7130
- 7128 LE%[178]1260:[141]8000:[137]7130
- 7130 [145]C2[137]7140,7150
- 7140 SG[178]19:S[178]348::[139]O[178]4[167]S[178]461
- 7145 LE%[178]20[172](N2(2)[171]48):[141]8000:[137]7160
- 7150 SG[178]19:S[178]341:[139]O[178]4[167]S[178]461
- 7155 LE%[178]20[172](N2(2)[171]48):[141]8000:S[178]S[170]7:LE%[178]20[172](N2(3)[171]48):[141]8000
- 7160 [139]O[179][177]4[167][145]C3[141]8100,8110,8120:[137]8500
- 7170 [137]8500
- 8000 L[178]LE%[170]SG:[129]X[178]LE%[164]L:[139]N(LE%)[178]0[167]LE%[178]L:[130]:[141]9500:[142]
- 8010 [151]55295[170]S[170]N(LE%),DT:[151]1023[170]S[170]N(LE%),81:[141]9000:LE%[178]LE%[170]1:[130]
- 8020 [141]9500:[142]
- 8050 [129]X[178]0[164]240[169]40:[129]Y[178]1023[170]S[170]X[164]1023[170]S[170]X[170]5:[151]Y,32:[130]Y,X:[142]
- 8060 S[178]694:[139]O[178]4[167]S[178]94
- 8070 [129]Z[178]1[164]3:[141]8050:S[178]S[170]7:[130]Z:[142]
- 8100 [139]C1[179][177]2[175]C2[179][177]2[167]SG[178]6:S[178]627:LE%[178]1270:[141]8000:[142]
- 8110 [139]C3[179][177]3[167]SG[178]6:S[178]620:LE%[178]1270:[141]8000:S[178]627:LE%[178]1270:[141]8000:[142]
- 8120 SG[178]6:S[178]613:LE%[178]1270:[141]8000:S[178]620:LE%[178]1270:[141]8000:S[178]627:LE%[178]1270
- 8130 [141]8000:[142]
- 8200 SG[178]14:S[178]419:LE%[178]1278:[141]8000:[139]C2[178]2[167]SG[178]6:S[178]427:LE%[178]1270:[141]8000
- 8210 [137]7130
- 8500 A[178]0:SP[178]27:S[178]708:[139]O[178]4[167]SP[178]20:S[178]20:A[178]1:[139]C3[178]1[175]C2[178]2[167]SP[178]27:S[178]27:A[178]0
- 8510 [161]A$:[139]A$[178]""[167]A$[178][199](0)
- 8515 [139][198](A$)[177]47[175][198](A$)[179]58[167]A$(A)[178]A$:[141]8610
- 8520 [139][198](A$)[177]32[175][198](A$)[179]42[167]A$(A)[178]A$:[141]8600
- 8530 [141]8900
- 8535 [139]A$[178][199](95)[167]20
- 8540 [139]A$[178][199](13)[176]A$[178][199](141)[167]8700
- 8545 [139]A$[178][199](94)[176]A$[178][199](222)[167]4000
- 8550 [137]8510
- 8600 A$(A)[178][199]([198](A$(A))[170]16):[137]8610
- 8610 SG[178]19:LE%[178]20[172]([198](A$(A))[171]48)
- 8615 [139]A[178]0[175]O[179][177]4[167]S[178]708:[141]8050:[141]8000:[142]
- 8617 [139]A[178]0[175]O[178]4[167]S[178]108:[141]8050:[141]8000:[142]
- 8620 [139]A[178]1[175]O[179][177]4[167]S[178]701:[141]8050:[141]8000:[142]
- 8625 [139]A[178]1[175]O[178]4[167]S[178]101:[141]8050:[141]8000:[142]
- 8630 S[178]694:[139]O[178]4[167]S[178]94
- 8635 [141]8050:[141]8000:[142]
- 8700 A(4)[178][197](A$(2)[170]A$(1)[170]A$(0)):[139]A(4)[178]N3[167]8750
- 8705 [139]CT[178]2[167]8760
- 8710 [151]214,17:[153]:[153]" SORRY! WAIT":[153]" TRY AGAIN WAIT":[141]9100
- 8720 [129]X[178]1[164]2000:[130]:[151]214,17:[153]:[129]X[178]1[164]2:[129]Y[178]1[164]12:[153][199](32);
- 8730 [130]Y:[153]:[130]X:CT[178]CT[170]1:[141]9120:[137]8510
- 8750 [153]""[163]41)" VERY GOOD! ":[141]9400
- 8755 [151]214,1:[153]:[153]" TRY ANOTHER WAIT":[137]4110
- 8760 [151]214,3:[153]:[153]" THAT IS YOUR WAIT":[153]" THIRD TRY WAIT"
- 8765 [141]9100:[129]X[178]1[164]2000:[130]:[141]9120
- 8770 [151]214,18:[153]:[139]O[178]4[167][151]214,3:[153]
- 8772 [153]" THE CORRECT ":[153]" ANSWER IS: "
- 8775 [145]C3[137]8780,8785,8790
- 8780 N$[178][199](N3(2)):LE%[178]20[172]([198](N$)[171]48):SG[178]19:[141]8060:S[178]708:[139]O[178]4[167]S[178]101
- 8781 [139]O[178]4[175]C3[178]1[175]C2[178]2[167]S[178]108
- 8782 [141]8000:[137]8755
- 8785 N$[178][199](N3(2)):LE%[178]20[172]([198](N$)[171]48):SG[178]19:[141]8060:S[178]701:[139]O[178]4[167]S[178]101
- 8786 [141]8000
- 8787 N$[178][199](N3(3)):LE%[178]20[172]([198](N$)[171]48):SG[178]19:S[178]708:[139]O[178]4[167]S[178]108
- 8788 [141]8000:[137]8755
- 8790 N$[178][199](N3(2)):LE%[178]20[172]([198](N$)[171]48):SG[178]19:[141]8060:S[178]694:[141]8000
- 8792 N$[178][199](N3(3)):LE%[178]20[172]([198](N$)[171]48):SG[178]19:S[178]701:[141]8000
- 8794 N$[178][199](N3(4)):LE%[178]20[172]([198](N$)[171]48):SG[178]19:S[178]708:[141]8000:[137]8755
- 8900 [139]A$[178]""[176]A$[178]"ON"[167]SP[178]SP[171]7:A[178]A[170]1:S[178]S[171]7:[139]SP[178]6[167]SP[178]13:A[178]2:S[178]694
- 8907 [139]A$[178][199](32)[176]A$[178][199](160)[167][141]8050:A$(A)[178]""
- 8910 [139]A$[178]""[176]A$[178]"CMD"[167]SP[178]SP[170]7:A[178]A[171]1:S[178]S[170]7:[139]SP[178]34[167]SP[178]27:A[178]0:S[178]708
- 8915 [151]214,OP:[153]
- 8920 [153][166]SP)"(null)(null)(null)(null)(null)(null)(null)":[129]X[178]1[164]7:[141]9200:[153][166]SP)"(null)(null)":[130]
- 8930 [153][166]SP)"(null)(null)(null)(null)(null)(null)(null)ON":[129]X[178]1[164]50:[130]
- 8935 [151]214,OP:[153]:[153][166]SP)" "
- 8940 [129]X[178]1[164]7:[153][166]SP)" ":[130]:[153][166]SP)" ON":[142]
- 9000 [151]SO,75:[151]SO[170]1,34:[151]SO[170]5,17:[151]SO[170]6,129:[151]SO[170]4,129:[151]SO[170]4,128
- 9010 [142]
- 9100 [151]SO,75:[151]SO[170]1,2:[151]SO[170]5,17:[151]SO[170]6,129:[151]SO[170]4,33
- 9110 [142]
- 9120 [151]SO[170]4,32:[142]
- 9200 [151]SO,75:[151]SO[170]1,255[172][187](1):[151]SO[170]5,17:[151]SO[170]6,129:[151]SO[170]4,17
- 9210 [151]SO[170]4,16:[142]
- 9300 [151]SO,75:[151]SO[170]1,50[172][187](1)[170]50:[151]SO[170]5,17:[151]SO[170]6,129:[151]SO[170]4,17
- 9310 [129]X[178]1[164]50:[130]:[151]SO[170]4,16:[142]
- 9400 [151]SO,75:[151]SO[170]1,10:[151]SO[170]5,17:[151]SO[170]6,129:[151]SO[170]4,33
- 9410 [129]X[178]1[164]200:[130]:[151]SO[170]1,20:[129]X[178]1[164]2000:[130]:[142]
- 9500 [151]SO,30:[151]SO[170]1,134:[151]SO[170]5,48:[151]SO[170]6,129:[151]SO[170]4,17:[129]X[178]1[164]150
- 9510 [130]:[151]SO[170]4,16:[129]X[178]1[164]20:[130]:[142]
-